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FCURS = absolute cursor position’ 
CURS ( ' Absolute wre eee 

re = ‘v04-000' ' File: SC eels: °BLI Edit: JBS1007 
Ss 


BEGIN 
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extracting the routine EDTSSSC 
2 


postas from module SCREEN. 
2 - Regular 


e headers. “Mar 


: -004 - Output a CR berere e positioning to the Last column, to defeat 
' autowrap 

! 1-005 - Renee mitt 
! —_ Site e to position to at ies 07-Oct-1982 

' 1-006 - bon’ t allow negative cursor locations. 0-0c t-198 | 
! 1-007 - Preserve EDTSS$G_FMT_LNPOS, it may be modified by EDTSSFMT -DCML. JBS 28-0ct-1982 | 


ou? since it doesn’t help on a VT100, and use 


is 

aq | 
: $ 1 

2 8 iis ® 
: 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
: 10 10 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 i! ot : ‘* ALL RIGHTS RESERVED. « 
oe . a7 
3 8 ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 AG 14 1! ONLY IN ACCORDANCE WITH THE TERMS OF rate” LICENSE AND WITH THE * 
3 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; I 8018 1 !@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 70 ANY * 
3 1 001 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 13 ie } TRANSFERRED. ad 
2 + ® 
4 0 0020 1! THE a ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 ¢ ee ; : is CORPORATION. . 
: 4 0034 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: i 88 5 : - SOFTWARE ON EQUIPMENT WHICH IS NO1 SUPPLIED BY DIGITAL. : 
: 2? 0097 1 is . 
3 $8 ey : | niente «ss epee nnn 
; 4 $034 i 'ee 

; : 003¢ | FACILITY: EDT -- The DEC Standard Editor 

: 34 034 1 | ABSTRACT: 

3 5 S- ea 

3 6 00 $ 1! This module forces an absolute cursor position sequence to a specified 
3 38 it $4 : Line and position to be placed in the formatted output buffer. 

; iD 0039 ; ENVIRONMENT: Runs at any access mode - AST reentrant 

; 41 9041 i AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 

; 8 $ i MODIFIED BY: 

; rt 1045 ' i 1-001 = Original. DJS 12-Feb-1981. This module was created b | 
: <3 3 1/ | 
:; 48 1! 

: 49 1! 

. & 1i 

e 1/ 

; 3 1/ 

: 4 1! 

3 5 1 


ooo 

sssssss 
wal 

UPW—O0® 


PAM 
wi 


—K—TOMMOOWDZ EH ACH ILO MMOOMZ ES KOCH LO MMOOMZ EF ACH TOM OOZES ACH TOMI 
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Declarations 
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SSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM® ; 


FORWARD ROUTINE 
EDTS$SC_POSABS : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ’; 
' 


i MATROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


1986 92:30:28 
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16 
EDTSSCRFCURS DTISSCRFCURS = absolute cursor position 1b-5¢ -1984 233: VAX-11 Bliss-32 V4.0-74 Page 3 
be tts EDT EEce POSABS = absolute curser position 1 =300n 138% 94:33:38 WP EKSUMEMASTERSCEDT SRCISCRECURS.BLI64” (3) 
3 % 


3 30 060 } SBTTi. "EDTS$SC_POSABS = absolute cursor position’ 

; 3 066 1 Osan, ROUTINE EDTSSSC_POSABS ( ! Absolute cursor position 
; 6 1 LINE, ! Desired Line 

; 9% eee 1 POS ' Desired column 

; 5 1 ) : NOVALUE = 

; 4 r¢] 1 

Be . 67 1 !4+ 

; eB eee : FUNCTIONAL DESCRIPTION: 

: 100 oe Fy This routine forces a cursor position sequence to the specified Line 
; 133 of : and position to be placed in the formatted output buffer. 

3 108 78 1! The new Line and position are saved in EDTS$$G_PRV_LN and 

3 Se booed : : EDTS$G_PRV_COL for use by future positions. 

; 198 ore 1 ! FORMAL PARAMETERS: 

; 10 i ie 

; 108 678 1! LINE Desired Line number 

; 109 0679 1! 

3; 6110 0680 1! POS Desired column number 

; 6111 0681 1! 

; BT 0682 1 ! IMPLICIT INPUTS: 

3 1 06835 1! 

; (114 0684 1! EDT$$G_TI_TYP 

» VS 0685 1! 

>; 116 0686 1 ! IMPLICIT OUTPUTS: 

s 717 687 1! 

: 118 688 1! EDTS$$G_PRV_LN 

3; ii 0689 1! EDT$$G_PRV_COL 

; 120 0690 1! 

: \$1 0691 1 ! ROUTINE VALUE: 

| ¢ 0692 1! 

3 V2 0695 1! NONE 

; $8 0694 1! 

; 125 0695 1 ! SIDE EFFECTS: 

3; 12 0696 1! 

; 127 0697 1! NONE 

: 128 0698 1! 

: 129 0699 1 !-- 

: 130 0700 1 

3 (131 0701 BEGIN 

; 13g 8208 

: 137 878 EXTERNAL ROUTINE 

i 704 EDTSSSTORE FMTCH : NOVALUE, ! Store a character in the format buffer 
; st 1444 2 EDTSSFMT_DTML : NOVALUE; ! Expand a number in decimal into the format buffer 
: 139 a7? EXTERNAL 

: 138 708 EDTS$$G_PRV_LN, ! Previous Line number. 

; 139 0709 EDT$$G_PRV_COL, ! Previous column number. 
; 140 0710 EDT$$G_TI_TYP ! Terminal type. ; 
; 16) fab EDT$$G_FMT_LNPOS; ! Column number for formatting purposes 
; 128 Hg LOCAL 

3 6144 714 SAVE _FMTLNPOS; 

: 145 715 

; 146 0716 '¢ 


| 


ee 
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X-11 venet Pa ‘s 
SKSVMSMASTER:CEDT.SRCJSCRFCURS.BLI;1 (3) 


no 
om 


COT eRe CURS é 


The Line and position parameters must not be negative. 


ASSERT (.LINE GEQ 0); 
ASSERT (.POS GEQ 0); 


i Preserve EDTS$$G_FMT_LNPOS, since the call to EDTSSFMT_DCML will modify it, 
but those characters do not really increment the column. 


SAVE_FMTLNPOS = .EDTSSG_FMT_LNPOS; 

;_Always start with an escape. 

EDTSSSTORE_FMTCH (ASC_K_ESC); 

if this is a VT100, the escape is always followed by a [, to make a CSI. 


WR O DONO UES WN O0a~ 


IF (.EDTSS$G_TI_TYP EQL TERM_VT100) THEN EDTSSSTORE_FMTCH (%C'C"); 


le 
If we are positioning to home, use the shorter sequence. 


IF ((.LINE EQL 0) AND (.POS EQL 0)) 
THEN 


BEGIN 
EDTSSSTORE_FMTCH (%C'H"); 
EDTS$$G_PRV-LN = .LINE; 
EDT$$G_PRV-COL = .POS; 
EDTS$G_FMT_LNPOS = .SAVE_FMTLNPOS; 
RETURN: 


1+ 
: We are not positioning to home, use the longer sequence. 


000909 C9 OOO SI NIN SIN NN NS PRPS 


IF (.EDT$$G_TI_TYP EQL TERM_VTS2) 
THEN 


GIN 
S$SSTORE_FMTCH (XC'Y'); 
SSSTORE-FMTCH (.LINE + 32); 

SSSTORE-FMTCH (.POS + 32); 

$$G_PRV"LN = .LINE; 

$$G"PRV-COL = .POS; 
$$6_FAT_LNPOS = ,SAVE_FMTLNPOS; 


ASSERT (.EDTS$G_TI_TYP EQL TERM_VT100); 

IF (LINE NEQ 0) THEN EDTSSFMT_DCML (.LINE + 1); 
IF (.POS NEQ 0) 

THEN 


SSSLESLANLESESS 
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ooo 
WwnN— 


BEGIN 
EDTS$SSTORE_FMTCH (%C';'); 
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ae (.POS + 1); 
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e” 


EDTS$STORE AFMTCH (RCOH"); 
EDT$$G_PRV-LN -LINE: 
EDT$$G_PRV~COL 

EDTSS G- FMT “LNPOS " OCA VE_FMTLNPOS: 
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! of routine EDTS$$SC_POSABS 


-TITLE EDTSSCRFCURS oe - absolute cursor pos 
on 
-IDENT \V04-000\ 


«EXTRN EDTSSSTORE FMTCH 

-EXTRN EDTSSFMT_DCML, EDT$$G_PRV_LN 
-EXTRN EDTS$G =PRV._COL, EDTS$G_TI_TYP 
“EXTRN EDTS$$G-FMT-LNPOS 

eEXTRN EDTSSUNTERT ERR 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


03FC 00000 ENTRY EDTSSSC_ POSABS, Save R2,R3,R4,R5,R6,R7,RB.- ; 0662 
59 000000006 00 9€ 00002 MOVAB EDISSEMT acne : 
58 000000006 00 9E 00009 MOVAB EDT$$G_F tNbOS : 
57 000000006 00 9€ 00010 MOVAB EDISSIAT rer ERR ‘p ar®® F 
56 000000006 00 9€ 00017 MOVAB EDT I_TyYP : 
55 000000006 00 9€ O001E MOVAB DTS SSSTORE. rmtcne RS ; 
53 04 AC OD 900¢5 MOVL LINE + 0719 
03 18 00029 BGEQ ~=—é«é1$ : 
67 00 FB 00028 CALLS #0, EDTSSINTER_ERR : 
52 08 AC 00 000 : 1$: MOVL POS, R2 : 6720 
03 18 000 GEG Sts : 
67 00 FB 00034 CALLS #0, EDTSSINTER ; | 
54 68 DO 00037 2s: OVL EDTSSG_FMT NENPOS. * cave _FMTLNPOS : 0725 
1B DD OO003A PUSHL #27 : 0729 
65 01 FB 0003C CALLS AF gorssstone _FMTCH 3 
02 66 D1 0003F CMPL ept $$G_TI_TYP, #2 : 0734 
07 12 00042 BNEO 3 : 
43 5B 8F 9A 00044 MOVZBL #91, -(SP) 3 
6 01 FB 0048 CALLS #1, EDTS$SSTORE_FMTCH : 
53 DS 00048 3$: TSTL R3- ; 0740 
-. 90040 BNEQ 6-4 : 
3 D5 0004F TSTL = R2 : 
13 00051 BEQL = 8$ : 
01 66 D1 00053 4s: CMPL hep TI_TYP, #1 > 0754 
12 12 0096 BNE $ : 
7E 59 af 9A 0005 MOVZBL #89, - : 0757 
65 1 FB 0005¢ CALLS #1 gb188stone. FMTCH : 
20 AS 9F O005F PUSHAB 32(R : 0758 
65 01 FB 0062 CALLS #1 EDTSSSTORE_ FMTCH : 
20 Ag OF 006 PUSHAB 32(R : 0759 
25 11 00068 BRB 9$ : 
02 66 D4 006A 5$: CMPL  EDTSS$G_TI_TYP, #2 > 0766 
13 0006D BEQL 6s 44S : 
67 00 FB 0006F CALLS #0, EDTSSINTER_ERR : 


14-14 1 
0785 1 !<BLF/PAGE> 


F 16 
Vou-000 > EDYSESC/PoSABS “= absolute cursor position —-a-Sep= 
3 03 ue 6$: 
oO BS 
8) 08 7C 7$: 
B 1 7 
38 DD 000 
65 1 FB $8 
, OR 
re 48 F OA 0088 8$: 
§ } Fe ie 9$: 
000000006 00 DO 00 5 
000000006 °° ef dO 4 
6 4 DO OO0A0 
04 000A3 
; Routine Size: 164 bytes, Routine Base: _EDTSCODE + 0000 


4 VAX-11 ss-32 V 
1382 9}: 3i; 8 WE SvMeMA MASTER: CED 
TSTL 
BEQL 
PUSHAB 1(R3) 
CALLS #1, EDTSSFMT_DCML 
TSTL = R2 
BEQL 
PUSHL 4 9 
CALLS EDTS$SSTORE_FMTCH 
PUSHAB Tak 
CALLS #1 EDTSSEMT_ DCML 
MOVZBL +75, 
CALLS #1, “EDTSSS TORE. FMTCH 
MOVL 3, EDT$ -PR 


MOVL R2, EDT$$G_P ¥7COL 
MOVi SAVE CPMTLNPOS. “EDTSSG. FMT_LNPOS 


4.0 
1 SRCSScRFCURS. BLI; + at 38 


0768 


0770 


VOurO00 NS ED TSESC PusaBS “eSGuSeLute sorsbe poet ion if}e ~25b-19h2 93:32:38 4 PESKSUMEMASTERSCEDT SRCSCRECURS.BLIG;™” (45 
: 316 Ores } END ! of module EDTSSCRFCRUS 

: $19 786 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

;  EDTSCODE 164 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

ee ee Be ee ae ee Syabel¢ sconsces Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28: (EDT. SRCJEDT.L32;1 377 4 1 40 00:00.2 

3 2$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 
Farag ener SEL TEETER. APT INE LED STORE RONEN EL FEMS Sos OMT LVRS SOR OS UC TCNT CURE MSRC$:SCRFCURS .BLI /UPDATE=(ENHS: SCRF 


Elapsed fees 00:19.4 
Lines/CPU Min: 49 
Lexemes/CPU-Min: 10171 
penery Used: 90 pages 
Compilation Complete 
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